home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1998.rar / 1998 / Mar / DI9803DB / ssserver / SSServer_TLB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-10-11  |  1.8 KB  |  72 lines
  1. unit SSServer_TLB;
  2.  
  3. { This file contains pascal declarations imported from a type library.
  4.   This file will be written during each import or refresh of the type
  5.   library editor.  Changes to this file will be discarded during the
  6.   refresh process. }
  7.  
  8. { SSServer Library }
  9. { Version 1.0 }
  10.  
  11. interface
  12.  
  13. uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;
  14.  
  15. const
  16.   LIBID_SSServer: TGUID = '{5888B8C0-22E7-11D1-9B99-444553540000}';
  17.  
  18. const
  19.  
  20. { Component class GUIDs }
  21.   Class_SystemStatusAuto: TGUID = '{5888B8C2-22E7-11D1-9B99-444553540000}';
  22.  
  23. type
  24.  
  25. { Forward declarations: Interfaces }
  26.   ISystemStatus = interface;
  27.   ISystemStatusDisp = dispinterface;
  28.  
  29. { Forward declarations: CoClasses }
  30.   SystemStatusAuto = ISystemStatus;
  31.  
  32. { Dispatch interface for SystemStatus Object }
  33.  
  34.   ISystemStatus = interface(IDispatch)
  35.     ['{5888B8C1-22E7-11D1-9B99-444553540000}']
  36.     function Get_SystemStatus: OleVariant; safecall;
  37.     property SystemStatus: OleVariant read Get_SystemStatus;
  38.   end;
  39.  
  40. { DispInterface declaration for Dual Interface ISystemStatus }
  41.  
  42.   ISystemStatusDisp = dispinterface
  43.     ['{5888B8C1-22E7-11D1-9B99-444553540000}']
  44.     property SystemStatus: OleVariant readonly dispid 1;
  45.   end;
  46.  
  47. { SystemStatusObject }
  48.  
  49.   CoSystemStatusAuto = class
  50.     class function Create: ISystemStatus;
  51.     class function CreateRemote(const MachineName: string): ISystemStatus;
  52.   end;
  53.  
  54.  
  55.  
  56. implementation
  57.  
  58. uses ComObj;
  59.  
  60. class function CoSystemStatusAuto.Create: ISystemStatus;
  61. begin
  62.   Result := CreateComObject(Class_SystemStatusAuto) as ISystemStatus;
  63. end;
  64.  
  65. class function CoSystemStatusAuto.CreateRemote(const MachineName: string): ISystemStatus;
  66. begin
  67.   Result := CreateRemoteComObject(MachineName, Class_SystemStatusAuto) as ISystemStatus;
  68. end;
  69.  
  70.  
  71. end.
  72.